home *** CD-ROM | disk | FTP | other *** search
/ Cabal 2 / Cabal - Issue 1 (19xx)(Raven)(en-fr)[h Silicon Mages].adf / Sources / PLASMA.asm < prev   
Assembly Source File  |  1990-11-10  |  22KB  |  1,157 lines
  1.  
  2. ; This  piece of code is extracted from THE RISING FORCES demo
  3. ; we hope you'll be glad to contact us to get the WHOLE source
  4. ; code of this  demo filled with  blasting plasma effects, and
  5. ; EASY TO RIP ! (and cheap !)
  6.  
  7.  
  8. ; Ceci est extrait de la demo 'THE RISING FORCES'. Nous espérons
  9. ; que  vous  nous  contacterez pour obtenir la source ENTIERE de 
  10. ; cette  démo,  remplie  de  head-smashing effects, et FACILES à
  11. ; REPIQUER (et pas cher !)
  12.  
  13. ; If  you think these routines could be better or optimized in
  14. ; any way, blame the author, that's no me !
  15.  
  16. ; the picture is a one bitmap 320*200 raw format
  17.  
  18.     section    PRG,code
  19.  
  20.     bsr    fx3_init
  21.     move.l    4.w,a6
  22.     jsr    -132(a6)
  23.  
  24.     lea    plan,a0
  25.     move.l    a0,d0
  26.     move.w    d0,mrk1+6
  27.     move.w    d0,mrk2+6
  28.     swap    d0
  29.     move.w    d0,mrk1+2
  30.     move.w    d0,mrk2+2
  31.     move.w    #$20,$dff096
  32.  
  33.  
  34. wait_1:
  35.     move.l    $dff004,d0 ; vposr
  36.     and.l    #$0001ff00,d0
  37.     cmp.l    #$00001000,d0
  38.     bne.s    wait_1
  39.     move.l    #c3_list,$dff080 ; cop1lch
  40.     clr.w    $dff088 ; copjmp1
  41.     move.l    #c4_copper-2,d7
  42.     bsr    fx3_a
  43.     btst    #6,$bfe001 ;ciaapra
  44.     beq.s    fin
  45.  
  46. wait_2:
  47.     move.l    $dff004,d0 ; vposr
  48.     and.l    #$0001ff00,d0
  49.     cmp.l    #$00001000,d0
  50.     bne.s    wait_2
  51.     move.l    #c4_list,$dff080 ; cop1lch
  52.     clr.w    $dff088 ; copjmp1
  53.     move.l    #c3_copper-2,d7
  54.     bsr.s    fx3_a
  55.     btst    #6,$bfe001 ;ciaapra
  56.     beq.s    fin
  57.     bra.s    wait_1
  58.  
  59.  
  60. fin:    lea    gr,a1
  61.     move.l    4.w,a6
  62.     jsr    -408(a6)
  63.     move.l    d0,a1
  64.     move.l    38(a1),$dff080
  65.     lsl.w    $dff088
  66.     jsr    -414(a6)
  67.     jsr    -138(a6)
  68.     move.w    #$8020,$dff096
  69.     rts
  70.  
  71.  
  72.  
  73. gr:    dc.b    "graphics.library",0
  74.     even
  75.  
  76. fx3_init:
  77.     move.l    #fxa_sad,fx3_pr
  78.     move.l    #fx3_sbf-80,fx3_pv
  79.     move.l    #fx3_scd,fx3_pb
  80.     rts
  81.  
  82. fx3_a:    move.w    #%0000111111111110,$dff040 ; bltcon0
  83.     move.w    #0,$dff042 ; bltcon1
  84.     move.w    #$ffff,$dff044 ; bltafwm
  85.     move.w    #$ffff,$dff046 ; bltalwm
  86.     move.w    #0,$dff064 ; bltamod
  87.     move.w    #0,$dff062 ; bltbmod
  88.     move.w    #0,$dff060 ; bltcmod
  89.     move.w    #166,$dff066 ; bltdmod
  90.     moveq.l    #40,d0
  91.     move.l    d7,a3
  92.     move.l    fx3_pr,d1
  93.     move.l    fx3_pv,d2
  94.     move.l    fx3_pb,d3
  95.     bra.s    fx3_c
  96. fx3_b:    move.l    a0,$dff050 ; bltapt
  97.     move.l    a1,$dff04c ; bltbpt
  98.     move.l    a2,$dff048 ; bltcpt
  99.     move.l    a3,$dff054 ; bltdpt
  100.     move.w    #12993,$dff058 ; bltsize
  101. fx3_c:    clr.l    d4
  102.     move.l    d1,a4
  103.     move.b    (a4),d4
  104.     lsl.l    #1,d4
  105.     addi.l    #fx3_rouge,d4
  106.     move.l    d4,a0
  107.     clr.l    d4
  108.     move.l    d2,a4
  109.     move.b    (a4),d4
  110.     lsl.l    #1,d4
  111.     addi.l    #fx3_vert,d4
  112.     move.l    d4,a1
  113.     clr.l    d4
  114.     move.l    d3,a4
  115.     move.b    (a4),d4
  116.     lsl.l    #1,d4
  117.     addi.l    #fx3_bleu,d4
  118.     move.l    d4,a2
  119. fx3_d:    btst    #14,$dff002 ; dmaconr
  120.     bne.s    fx3_d
  121.     addq.l    #1,d1
  122.     addq.l    #1,d2
  123.     addq.l    #1,d3
  124.     addq.l    #4,a3
  125.     dbra    d0,fx3_b
  126.     addq.l    #2,fx3_pr
  127.     cmp.l    #fxa_saf-100,fx3_pr
  128.     bne.s    fx3_e
  129.     move.l    #fxa_sad,fx3_pr
  130. fx3_e:    subq.l    #1,fx3_pv
  131.     cmp.l    #fx3_sbd,fx3_pv
  132.     bne.s    fx3_f
  133.     move.l    #fx3_sbf-80,fx3_pv
  134. fx3_f:    addq.l    #1,fx3_pb
  135.     cmp.l    #fx3_scf-60,fx3_pb
  136.     bne.s    fx3_g
  137.     move.l    #fx3_scd,fx3_pb
  138. fx3_g:    rts
  139.  
  140. fx3_pr:    dc.l    $00000000
  141. fx3_pv:    dc.l    $00000000
  142. fx3_pb:    dc.l    $00000000
  143.  
  144. fx3_sbd:
  145.     dc.b    104,112,120,128,135,143,150,158,164,171
  146.     dc.b    177,182,187,192,196,199,202,204,206,207
  147.     dc.b    207,207,206,204,202,199,196,192,187,182
  148.     dc.b    177,171,164,158,150,143,135,128,120,112
  149.     dc.b    104,95,87,79,72,64,57,49,43,36
  150.     dc.b    30,25,20,15,11,8,5,3,1,0
  151.     dc.b    0,0,1,3,5,8,11,15,20,25
  152.     dc.b    30,36,43,49,57,64,72,79,87,95
  153.     dc.b    104,112,120,128,135,143,150,158,164,171
  154.     dc.b    177,182,187,192,196,199,202,204,206,207
  155.     dc.b    207,207,206,204,202,199,196,192,187,182
  156.     dc.b    177,171,164,158,150,143,135,128,120,112
  157.     dc.b    104,95,87,79,72,64,57,49,43,36
  158.     dc.b    30,25,20,15,11,8,5,3,1,0
  159.     dc.b    0,0,1,3,5,8,11,15,20,25
  160.     dc.b    30,36,43,49,57,64,72,79,87,95
  161. fx3_sbf:
  162.     dc.b    0
  163. fx3_scd:
  164.     dc.b    104,114,125,135,146,155,164,173,180,187
  165.     dc.b    193,198,202,205,206,207,206,205,202,198
  166.     dc.b    193,187,180,173,164,155,146,135,125,114
  167.     dc.b    104,93,82,72,61,52,43,34,27,20
  168.     dc.b    14,9,5,2,1,0,1,2,5,9
  169.     dc.b    14,20,27,34,43,52,61,72,82,93
  170.     dc.b    104,114,125,135,146,155,164,173,180,187
  171.     dc.b    193,198,202,205,206,207,206,205,202,198
  172.     dc.b    193,187,180,173,164,155,146,135,125,114
  173.     dc.b    104,93,82,72,61,52,43,34,27,20
  174.     dc.b    14,9,5,2,1,0,1,2,5,9
  175.     dc.b    14,20,27,34,43,52,61,72,82,93
  176. fx3_scf:
  177.     dc.b    0
  178.  
  179.     section    somedata,data_C
  180.  
  181.  
  182. fx3_rouge:
  183.     ds.w    63
  184.     dcb.w    10,$0100
  185.     dcb.w    10,$0200
  186.     dcb.w    10,$0300
  187.     dcb.w    10,$0400
  188.     dcb.w    10,$0500
  189.     dcb.w    10,$0600
  190.     dcb.w    10,$0700
  191.     dcb.w    10,$0800
  192.     dcb.w    10,$0900
  193.     dcb.w    10,$0a00
  194.     dcb.w    10,$0b00
  195.     dcb.w    10,$0c00
  196.     dcb.w    10,$0d00
  197.     dcb.w    10,$0e00
  198.     dcb.w    10,$0f00
  199.     dcb.w    10,$0e00
  200.     dcb.w    10,$0d00
  201.     dcb.w    10,$0c00
  202.     dcb.w    10,$0b00
  203.     dcb.w    10,$0a00
  204.     dcb.w    10,$0900
  205.     dcb.w    10,$0800
  206.     dcb.w    10,$0700
  207.     dcb.w    10,$0600
  208.     dcb.w    10,$0500
  209.     dcb.w    10,$0400
  210.     dcb.w    10,$0300
  211.     dcb.w    10,$0200
  212.     dcb.w    10,$0100
  213.  
  214. fx3_vert:
  215.     ds.w    63
  216.     dcb.w    10,$0010
  217.     dcb.w    10,$0020
  218.     dcb.w    10,$0030
  219.     dcb.w    10,$0040
  220.     dcb.w    10,$0050
  221.     dcb.w    10,$0060
  222.     dcb.w    10,$0070
  223.     dcb.w    10,$0080
  224.     dcb.w    10,$0090
  225.     dcb.w    10,$00a0
  226.     dcb.w    10,$00b0
  227.     dcb.w    10,$00c0
  228.     dcb.w    10,$00d0
  229.     dcb.w    10,$00e0
  230.     dcb.w    10,$00f0
  231.     dcb.w    10,$00e0
  232.     dcb.w    10,$00d0
  233.     dcb.w    10,$00c0
  234.     dcb.w    10,$00b0
  235.     dcb.w    10,$00a0
  236.     dcb.w    10,$0090
  237.     dcb.w    10,$0080
  238.     dcb.w    10,$0070
  239.     dcb.w    10,$0060
  240.     dcb.w    10,$0050
  241.     dcb.w    10,$0040
  242.     dcb.w    10,$0030
  243.     dcb.w    10,$0020
  244.     dcb.w    10,$0010
  245.  
  246. fx3_bleu:
  247.     ds.w    63
  248.     dcb.w    10,$0001
  249.     dcb.w    10,$0002
  250.     dcb.w    10,$0003
  251.     dcb.w    10,$0004
  252.     dcb.w    10,$0005
  253.     dcb.w    10,$0006
  254.     dcb.w    10,$0007
  255.     dcb.w    10,$0008
  256.     dcb.w    10,$0009
  257.     dcb.w    10,$000a
  258.     dcb.w    10,$000b
  259.     dcb.w    10,$000c
  260.     dcb.w    10,$000d
  261.     dcb.w    10,$000e
  262.     dcb.w    10,$000f
  263.     dcb.w    10,$000e
  264.     dcb.w    10,$000d
  265.     dcb.w    10,$000c
  266.     dcb.w    10,$000b
  267.     dcb.w    10,$000a
  268.     dcb.w    10,$0009
  269.     dcb.w    10,$0008
  270.     dcb.w    10,$0007
  271.     dcb.w    10,$0006
  272.     dcb.w    10,$0005
  273.     dcb.w    10,$0004
  274.     dcb.w    10,$0003
  275.     dcb.w    10,$0002
  276.     dcb.w    10,$0001
  277.     ds.w    63
  278.  
  279.  
  280.  
  281. fxa_sad:
  282.     dc.b    104,110,116,123,129,135,142,148,153,159
  283.     dc.b    164,169,174,179,183,187,191,194,197,200
  284.     dc.b    202,204,205,206,207,207,207,206,205,204
  285.     dc.b    202,200,197,194,191,187,183,179,174,169
  286.     dc.b    164,159,153,148,142,135,129,123,116,110
  287.     dc.b    103,97,91,84,78,72,65,59,54,48
  288.     dc.b    43,38,33,28,24,20,16,13,10,7
  289.     dc.b    5,3,2,1,0,0,0,1,2,3
  290.     dc.b    5,7,10,13,16,20,24,28,33,38
  291.     dc.b    43,48,54,59,65,72,78,84,91,97
  292.     dc.b    104,110,116,123,129,135,142,148,153,159
  293.     dc.b    164,169,174,179,183,187,191,194,197,200
  294.     dc.b    202,204,205,206,207,207,207,206,205,204
  295.     dc.b    202,200,197,194,191,187,183,179,174,169
  296.     dc.b    164,159,153,148,142,135,129,123,116,110
  297.     dc.b    103,97,91,84,78,72,65,59,54,48
  298.     dc.b    43,38,33,28,24,20,16,13,10,7
  299.     dc.b    5,3,2,1,0,0,0,1,2,3
  300.     dc.b    5,7,10,13,16,20,24,28,33,38
  301.     dc.b    43,48,54,59,65,72,78,84,91,97
  302. fxa_saf:
  303.     dc.b    0
  304.  
  305.     even
  306. c3_list:
  307.     dc.w    $100,$1000
  308.     dc.w    $180,0
  309.     dc.w    $102,0
  310.     dc.w    $108,0
  311.     dc.w    $92,$38
  312.     dc.w    $94,$d0
  313.     dc.w    $8e,$2c81
  314.     dc.w    $90,$f4c1
  315.  
  316.     dc.w    $3001,$fffe
  317. mrk1    dc.w    $e0,0
  318.     dc.w    $e2,0
  319.  
  320.     dc.w    $323f,$fffe
  321. c3_copper:
  322.     dcb.l    41,$01820000
  323.     dc.w    $3341,$fffe
  324.     dcb.l    41,$01820000
  325.     dc.w    $343f,$fffe
  326.     dcb.l    41,$01820000
  327.     dc.w    $3541,$fffe
  328.     dcb.l    41,$01820000
  329.     dc.w    $363f,$fffe
  330.     dcb.l    41,$01820000
  331.     dc.w    $3741,$fffe
  332.     dcb.l    41,$01820000
  333.     dc.w    $383f,$fffe
  334.     dcb.l    41,$01820000
  335.     dc.w    $3941,$fffe
  336.     dcb.l    41,$01820000
  337.     dc.w    $3a3f,$fffe
  338.     dcb.l    41,$01820000
  339.     dc.w    $3b41,$fffe
  340.     dcb.l    41,$01820000
  341.     dc.w    $3c3f,$fffe
  342.     dcb.l    41,$01820000
  343.     dc.w    $3d41,$fffe
  344.     dcb.l    41,$01820000
  345.     dc.w    $3e3f,$fffe
  346.     dcb.l    41,$01820000
  347.     dc.w    $3f41,$fffe
  348.     dcb.l    41,$01820000
  349.     dc.w    $403f,$fffe
  350.     dcb.l    41,$01820000
  351.     dc.w    $4141,$fffe
  352.     dcb.l    41,$01820000
  353.     dc.w    $423f,$fffe
  354.     dcb.l    41,$01820000
  355.     dc.w    $4341,$fffe
  356.     dcb.l    41,$01820000
  357.     dc.w    $443f,$fffe
  358.     dcb.l    41,$01820000
  359.     dc.w    $4541,$fffe
  360.     dcb.l    41,$01820000
  361.     dc.w    $463f,$fffe
  362.     dcb.l    41,$01820000
  363.     dc.w    $4741,$fffe
  364.     dcb.l    41,$01820000
  365.     dc.w    $483f,$fffe
  366.     dcb.l    41,$01820000
  367.     dc.w    $4941,$fffe
  368.     dcb.l    41,$01820000
  369.     dc.w    $4a3f,$fffe
  370.     dcb.l    41,$01820000
  371.     dc.w    $4b41,$fffe
  372.     dcb.l    41,$01820000
  373.     dc.w    $4c3f,$fffe
  374.     dcb.l    41,$01820000
  375.     dc.w    $4d41,$fffe
  376.     dcb.l    41,$01820000
  377.     dc.w    $4e3f,$fffe
  378.     dcb.l    41,$01820000
  379.     dc.w    $4f41,$fffe
  380.     dcb.l    41,$01820000
  381.     dc.w    $503f,$fffe
  382.     dcb.l    41,$01820000
  383.     dc.w    $5141,$fffe
  384.     dcb.l    41,$01820000
  385.     dc.w    $523f,$fffe
  386.     dcb.l    41,$01820000
  387.     dc.w    $5341,$fffe
  388.     dcb.l    41,$01820000
  389.     dc.w    $543f,$fffe
  390.     dcb.l    41,$01820000
  391.     dc.w    $5541,$fffe
  392.     dcb.l    41,$01820000
  393.     dc.w    $563f,$fffe
  394.     dcb.l    41,$01820000
  395.     dc.w    $5741,$fffe
  396.     dcb.l    41,$01820000
  397.     dc.w    $583f,$fffe
  398.     dcb.l    41,$01820000
  399.     dc.w    $5941,$fffe
  400.     dcb.l    41,$01820000
  401.     dc.w    $5a3f,$fffe
  402.     dcb.l    41,$01820000
  403.     dc.w    $5b41,$fffe
  404.     dcb.l    41,$01820000
  405.     dc.w    $5c3f,$fffe
  406.     dcb.l    41,$01820000
  407.     dc.w    $5d41,$fffe
  408.     dcb.l    41,$01820000
  409.     dc.w    $5e3f,$fffe
  410.     dcb.l    41,$01820000
  411.     dc.w    $5f41,$fffe
  412.     dcb.l    41,$01820000
  413.     dc.w    $603f,$fffe
  414.     dcb.l    41,$01820000
  415.     dc.w    $6141,$fffe
  416.     dcb.l    41,$01820000
  417.     dc.w    $623f,$fffe
  418.     dcb.l    41,$01820000
  419.     dc.w    $6341,$fffe
  420.     dcb.l    41,$01820000
  421.     dc.w    $643f,$fffe
  422.     dcb.l    41,$01820000
  423.     dc.w    $6541,$fffe
  424.     dcb.l    41,$01820000
  425.     dc.w    $663f,$fffe
  426.     dcb.l    41,$01820000
  427.     dc.w    $6741,$fffe
  428.     dcb.l    41,$01820000
  429.     dc.w    $683f,$fffe
  430.     dcb.l    41,$01820000
  431.     dc.w    $6941,$fffe
  432.     dcb.l    41,$01820000
  433.     dc.w    $6a3f,$fffe
  434.     dcb.l    41,$01820000
  435.     dc.w    $6b41,$fffe
  436.     dcb.l    41,$01820000
  437.     dc.w    $6c3f,$fffe
  438.     dcb.l    41,$01820000
  439.     dc.w    $6d41,$fffe
  440.     dcb.l    41,$01820000
  441.     dc.w    $6e3f,$fffe
  442.     dcb.l    41,$01820000
  443.     dc.w    $6f41,$fffe
  444.     dcb.l    41,$01820000
  445.     dc.w    $703f,$fffe
  446.     dcb.l    41,$01820000
  447.     dc.w    $7141,$fffe
  448.     dcb.l    41,$01820000
  449.     dc.w    $723f,$fffe
  450.     dcb.l    41,$01820000
  451.     dc.w    $7341,$fffe
  452.     dcb.l    41,$01820000
  453.     dc.w    $743f,$fffe
  454.     dcb.l    41,$01820000
  455.     dc.w    $7541,$fffe
  456.     dcb.l    41,$01820000
  457.     dc.w    $763f,$fffe
  458.     dcb.l    41,$01820000
  459.     dc.w    $7741,$fffe
  460.     dcb.l    41,$01820000
  461.     dc.w    $783f,$fffe
  462.     dcb.l    41,$01820000
  463.     dc.w    $7941,$fffe
  464.     dcb.l    41,$01820000
  465.     dc.w    $7a3f,$fffe
  466.     dcb.l    41,$01820000
  467.     dc.w    $7b41,$fffe
  468.     dcb.l    41,$01820000
  469.     dc.w    $7c3f,$fffe
  470.     dcb.l    41,$01820000
  471.     dc.w    $7d41,$fffe
  472.     dcb.l    41,$01820000
  473.     dc.w    $7e3f,$fffe
  474.     dcb.l    41,$01820000
  475.     dc.w    $7f41,$fffe
  476.     dcb.l    41,$01820000
  477.     dc.w    $803f,$fffe
  478.     dcb.l    41,$01820000
  479.     dc.w    $8141,$fffe
  480.     dcb.l    41,$01820000
  481.     dc.w    $823f,$fffe
  482.     dcb.l    41,$01820000
  483.     dc.w    $8341,$fffe
  484.     dcb.l    41,$01820000
  485.     dc.w    $843f,$fffe
  486.     dcb.l    41,$01820000
  487.     dc.w    $8541,$fffe
  488.     dcb.l    41,$01820000
  489.     dc.w    $863f,$fffe
  490.     dcb.l    41,$01820000
  491.     dc.w    $8741,$fffe
  492.     dcb.l    41,$01820000
  493.     dc.w    $883f,$fffe
  494.     dcb.l    41,$01820000
  495.     dc.w    $8941,$fffe
  496.     dcb.l    41,$01820000
  497.     dc.w    $8a3f,$fffe
  498.     dcb.l    41,$01820000
  499.     dc.w    $8b41,$fffe
  500.     dcb.l    41,$01820000
  501.     dc.w    $8c3f,$fffe
  502.     dcb.l    41,$01820000
  503.     dc.w    $8d41,$fffe
  504.     dcb.l    41,$01820000
  505.     dc.w    $8e3f,$fffe
  506.     dcb.l    41,$01820000
  507.     dc.w    $8f41,$fffe
  508.     dcb.l    41,$01820000
  509.     dc.w    $903f,$fffe
  510.     dcb.l    41,$01820000
  511.     dc.w    $9141,$fffe
  512.     dcb.l    41,$01820000
  513.     dc.w    $923f,$fffe
  514.     dcb.l    41,$01820000
  515.     dc.w    $9341,$fffe
  516.     dcb.l    41,$01820000
  517.     dc.w    $943f,$fffe
  518.     dcb.l    41,$01820000
  519.     dc.w    $9541,$fffe
  520.     dcb.l    41,$01820000
  521.     dc.w    $963f,$fffe
  522.     dcb.l    41,$01820000
  523.     dc.w    $9741,$fffe
  524.     dcb.l    41,$01820000
  525.     dc.w    $983f,$fffe
  526.     dcb.l    41,$01820000
  527.     dc.w    $9941,$fffe
  528.     dcb.l    41,$01820000
  529.     dc.w    $9a3f,$fffe
  530.     dcb.l    41,$01820000
  531.     dc.w    $9b41,$fffe
  532.     dcb.l    41,$01820000
  533.     dc.w    $9c3f,$fffe
  534.     dcb.l    41,$01820000
  535.     dc.w    $9d41,$fffe
  536.     dcb.l    41,$01820000
  537.     dc.w    $9e3f,$fffe
  538.     dcb.l    41,$01820000
  539.     dc.w    $9f41,$fffe
  540.     dcb.l    41,$01820000
  541.     dc.w    $a03f,$fffe
  542.     dcb.l    41,$01820000
  543.     dc.w    $a141,$fffe
  544.     dcb.l    41,$01820000
  545.     dc.w    $a23f,$fffe
  546.     dcb.l    41,$01820000
  547.     dc.w    $a341,$fffe
  548.     dcb.l    41,$01820000
  549.     dc.w    $a43f,$fffe
  550.     dcb.l    41,$01820000
  551.     dc.w    $a541,$fffe
  552.     dcb.l    41,$01820000
  553.     dc.w    $a63f,$fffe
  554.     dcb.l    41,$01820000
  555.     dc.w    $a741,$fffe
  556.     dcb.l    41,$01820000
  557.     dc.w    $a83f,$fffe
  558.     dcb.l    41,$01820000
  559.     dc.w    $a941,$fffe
  560.     dcb.l    41,$01820000
  561.     dc.w    $aa3f,$fffe
  562.     dcb.l    41,$01820000
  563.     dc.w    $ab41,$fffe
  564.     dcb.l    41,$01820000
  565.     dc.w    $ac3f,$fffe
  566.     dcb.l    41,$01820000
  567.     dc.w    $ad41,$fffe
  568.     dcb.l    41,$01820000
  569.     dc.w    $ae3f,$fffe
  570.     dcb.l    41,$01820000
  571.     dc.w    $af41,$fffe
  572.     dcb.l    41,$01820000
  573.     dc.w    $b03f,$fffe
  574.     dcb.l    41,$01820000
  575.     dc.w    $b141,$fffe
  576.     dcb.l    41,$01820000
  577.     dc.w    $b23f,$fffe
  578.     dcb.l    41,$01820000
  579.     dc.w    $b341,$fffe
  580.     dcb.l    41,$01820000
  581.     dc.w    $b43f,$fffe
  582.     dcb.l    41,$01820000
  583.     dc.w    $b541,$fffe
  584.     dcb.l    41,$01820000
  585.     dc.w    $b63f,$fffe
  586.     dcb.l    41,$01820000
  587.     dc.w    $b741,$fffe
  588.     dcb.l    41,$01820000
  589.     dc.w    $b83f,$fffe
  590.     dcb.l    41,$01820000
  591.     dc.w    $b941,$fffe
  592.     dcb.l    41,$01820000
  593.     dc.w    $ba3f,$fffe
  594.     dcb.l    41,$01820000
  595.     dc.w    $bb41,$fffe
  596.     dcb.l    41,$01820000
  597.     dc.w    $bc3f,$fffe
  598.     dcb.l    41,$01820000
  599.     dc.w    $bd41,$fffe
  600.     dcb.l    41,$01820000
  601.     dc.w    $be3f,$fffe
  602.     dcb.l    41,$01820000
  603.     dc.w    $bf41,$fffe
  604.     dcb.l    41,$01820000
  605.     dc.w    $c03f,$fffe
  606.     dcb.l    41,$01820000
  607.     dc.w    $c141,$fffe
  608.     dcb.l    41,$01820000
  609.     dc.w    $c23f,$fffe
  610.     dcb.l    41,$01820000
  611.     dc.w    $c341,$fffe
  612.     dcb.l    41,$01820000
  613.     dc.w    $c43f,$fffe
  614.     dcb.l    41,$01820000
  615.     dc.w    $c541,$fffe
  616.     dcb.l    41,$01820000
  617.     dc.w    $c63f,$fffe
  618.     dcb.l    41,$01820000
  619.     dc.w    $c741,$fffe
  620.     dcb.l    41,$01820000
  621.     dc.w    $c83f,$fffe
  622.     dcb.l    41,$01820000
  623.     dc.w    $c941,$fffe
  624.     dcb.l    41,$01820000
  625.     dc.w    $ca3f,$fffe
  626.     dcb.l    41,$01820000
  627.     dc.w    $cb41,$fffe
  628.     dcb.l    41,$01820000
  629.     dc.w    $cc3f,$fffe
  630.     dcb.l    41,$01820000
  631.     dc.w    $cd41,$fffe
  632.     dcb.l    41,$01820000
  633.     dc.w    $ce3f,$fffe
  634.     dcb.l    41,$01820000
  635.     dc.w    $cf41,$fffe
  636.     dcb.l    41,$01820000
  637.     dc.w    $d03f,$fffe
  638.     dcb.l    41,$01820000
  639.     dc.w    $d141,$fffe
  640.     dcb.l    41,$01820000
  641.     dc.w    $d23f,$fffe
  642.     dcb.l    41,$01820000
  643.     dc.w    $d341,$fffe
  644.     dcb.l    41,$01820000
  645.     dc.w    $d43f,$fffe
  646.     dcb.l    41,$01820000
  647.     dc.w    $d541,$fffe
  648.     dcb.l    41,$01820000
  649.     dc.w    $d63f,$fffe
  650.     dcb.l    41,$01820000
  651.     dc.w    $d741,$fffe
  652.     dcb.l    41,$01820000
  653.     dc.w    $d83f,$fffe
  654.     dcb.l    41,$01820000
  655.     dc.w    $d941,$fffe
  656.     dcb.l    41,$01820000
  657.     dc.w    $da3f,$fffe
  658.     dcb.l    41,$01820000
  659.     dc.w    $db41,$fffe
  660.     dcb.l    41,$01820000
  661.     dc.w    $dc3f,$fffe
  662.     dcb.l    41,$01820000
  663.     dc.w    $dd41,$fffe
  664.     dcb.l    41,$01820000
  665.     dc.w    $de3f,$fffe
  666.     dcb.l    41,$01820000
  667.     dc.w    $df41,$fffe
  668.     dcb.l    41,$01820000
  669.     dc.w    $e03f,$fffe
  670.     dcb.l    41,$01820000
  671.     dc.w    $e141,$fffe
  672.     dcb.l    41,$01820000
  673.     dc.w    $e23f,$fffe
  674.     dcb.l    41,$01820000
  675.     dc.w    $e341,$fffe
  676.     dcb.l    41,$01820000
  677.     dc.w    $e43f,$fffe
  678.     dcb.l    41,$01820000
  679.     dc.w    $e541,$fffe
  680.     dcb.l    41,$01820000
  681.     dc.w    $e63f,$fffe
  682.     dcb.l    41,$01820000
  683.     dc.w    $e741,$fffe
  684.     dcb.l    41,$01820000
  685.     dc.w    $e83f,$fffe
  686.     dcb.l    41,$01820000
  687.     dc.w    $e941,$fffe
  688.     dcb.l    41,$01820000
  689.     dc.w    $ea3f,$fffe
  690.     dcb.l    41,$01820000
  691.     dc.w    $eb41,$fffe
  692.     dcb.l    41,$01820000
  693.     dc.w    $ec3f,$fffe
  694.     dcb.l    41,$01820000
  695.     dc.w    $ed41,$fffe
  696.     dcb.l    41,$01820000
  697.     dc.w    $ee3f,$fffe
  698.     dcb.l    41,$01820000
  699.     dc.w    $ef41,$fffe
  700.     dcb.l    41,$01820000
  701.     dc.w    $f03f,$fffe
  702.     dcb.l    41,$01820000
  703.     dc.w    $f141,$fffe
  704.     dcb.l    41,$01820000
  705.     dc.w    $f23f,$fffe
  706.     dcb.l    41,$01820000
  707.     dc.w    $f341,$fffe
  708.     dcb.l    41,$01820000
  709.     dc.w    $f43f,$fffe
  710.     dcb.l    41,$01820000
  711.     dc.w    $f541,$fffe
  712.     dcb.l    41,$01820000
  713.     dc.w    $f63f,$fffe
  714.     dcb.l    41,$01820000
  715.     dc.w    $f741,$fffe
  716.     dcb.l    41,$01820000
  717.     dc.w    $f83f,$fffe
  718.     dcb.l    41,$01820000
  719.     dc.w    $f941,$fffe
  720.     dcb.l    41,$01820000
  721.     dc.w    $fa3f,$fffe
  722.     dcb.l    41,$01820000
  723.     dc.w    $fb41,$fffe
  724.     dcb.l    41,$01820000
  725.     dc.w    $fc3f,$fffe
  726.     dcb.l    41,$01820000
  727.     dc.w    $ffff,$fffe
  728.  
  729.     even
  730. c4_list:
  731.     dc.w    $100,$1000
  732.     dc.w    $180,0
  733.     dc.w    $102,0
  734.     dc.w    $108,0
  735.     dc.w    $92,$38
  736.     dc.w    $94,$d0
  737.     dc.w    $8e,$2c81
  738.     dc.w    $90,$f4c1
  739.  
  740.  
  741.     dc.w    $3001,$fffe
  742. mrk2    dc.w    $e0,0
  743.     dc.w    $e2,0
  744.  
  745.     dc.w    $323f,$fffe
  746. c4_copper:
  747.     dcb.l    41,$01820000
  748.     dc.w    $3341,$fffe
  749.     dcb.l    41,$01820000
  750.     dc.w    $343f,$fffe
  751.     dcb.l    41,$01820000
  752.     dc.w    $3541,$fffe
  753.     dcb.l    41,$01820000
  754.     dc.w    $363f,$fffe
  755.     dcb.l    41,$01820000
  756.     dc.w    $3741,$fffe
  757.     dcb.l    41,$01820000
  758.     dc.w    $383f,$fffe
  759.     dcb.l    41,$01820000
  760.     dc.w    $3941,$fffe
  761.     dcb.l    41,$01820000
  762.     dc.w    $3a3f,$fffe
  763.     dcb.l    41,$01820000
  764.     dc.w    $3b41,$fffe
  765.     dcb.l    41,$01820000
  766.     dc.w    $3c3f,$fffe
  767.     dcb.l    41,$01820000
  768.     dc.w    $3d41,$fffe
  769.     dcb.l    41,$01820000
  770.     dc.w    $3e3f,$fffe
  771.     dcb.l    41,$01820000
  772.     dc.w    $3f41,$fffe
  773.     dcb.l    41,$01820000
  774.     dc.w    $403f,$fffe
  775.     dcb.l    41,$01820000
  776.     dc.w    $4141,$fffe
  777.     dcb.l    41,$01820000
  778.     dc.w    $423f,$fffe
  779.     dcb.l    41,$01820000
  780.     dc.w    $4341,$fffe
  781.     dcb.l    41,$01820000
  782.     dc.w    $443f,$fffe
  783.     dcb.l    41,$01820000
  784.     dc.w    $4541,$fffe
  785.     dcb.l    41,$01820000
  786.     dc.w    $463f,$fffe
  787.     dcb.l    41,$01820000
  788.     dc.w    $4741,$fffe
  789.     dcb.l    41,$01820000
  790.     dc.w    $483f,$fffe
  791.     dcb.l    41,$01820000
  792.     dc.w    $4941,$fffe
  793.     dcb.l    41,$01820000
  794.     dc.w    $4a3f,$fffe
  795.     dcb.l    41,$01820000
  796.     dc.w    $4b41,$fffe
  797.     dcb.l    41,$01820000
  798.     dc.w    $4c3f,$fffe
  799.     dcb.l    41,$01820000
  800.     dc.w    $4d41,$fffe
  801.     dcb.l    41,$01820000
  802.     dc.w    $4e3f,$fffe
  803.     dcb.l    41,$01820000
  804.     dc.w    $4f41,$fffe
  805.     dcb.l    41,$01820000
  806.     dc.w    $503f,$fffe
  807.     dcb.l    41,$01820000
  808.     dc.w    $5141,$fffe
  809.     dcb.l    41,$01820000
  810.     dc.w    $523f,$fffe
  811.     dcb.l    41,$01820000
  812.     dc.w    $5341,$fffe
  813.     dcb.l    41,$01820000
  814.     dc.w    $543f,$fffe
  815.     dcb.l    41,$01820000
  816.     dc.w    $5541,$fffe
  817.     dcb.l    41,$01820000
  818.     dc.w    $563f,$fffe
  819.     dcb.l    41,$01820000
  820.     dc.w    $5741,$fffe
  821.     dcb.l    41,$01820000
  822.     dc.w    $583f,$fffe
  823.     dcb.l    41,$01820000
  824.     dc.w    $5941,$fffe
  825.     dcb.l    41,$01820000
  826.     dc.w    $5a3f,$fffe
  827.     dcb.l    41,$01820000
  828.     dc.w    $5b41,$fffe
  829.     dcb.l    41,$01820000
  830.     dc.w    $5c3f,$fffe
  831.     dcb.l    41,$01820000
  832.     dc.w    $5d41,$fffe
  833.     dcb.l    41,$01820000
  834.     dc.w    $5e3f,$fffe
  835.     dcb.l    41,$01820000
  836.     dc.w    $5f41,$fffe
  837.     dcb.l    41,$01820000
  838.     dc.w    $603f,$fffe
  839.     dcb.l    41,$01820000
  840.     dc.w    $6141,$fffe
  841.     dcb.l    41,$01820000
  842.     dc.w    $623f,$fffe
  843.     dcb.l    41,$01820000
  844.     dc.w    $6341,$fffe
  845.     dcb.l    41,$01820000
  846.     dc.w    $643f,$fffe
  847.     dcb.l    41,$01820000
  848.     dc.w    $6541,$fffe
  849.     dcb.l    41,$01820000
  850.     dc.w    $663f,$fffe
  851.     dcb.l    41,$01820000
  852.     dc.w    $6741,$fffe
  853.     dcb.l    41,$01820000
  854.     dc.w    $683f,$fffe
  855.     dcb.l    41,$01820000
  856.     dc.w    $6941,$fffe
  857.     dcb.l    41,$01820000
  858.     dc.w    $6a3f,$fffe
  859.     dcb.l    41,$01820000
  860.     dc.w    $6b41,$fffe
  861.     dcb.l    41,$01820000
  862.     dc.w    $6c3f,$fffe
  863.     dcb.l    41,$01820000
  864.     dc.w    $6d41,$fffe
  865.     dcb.l    41,$01820000
  866.     dc.w    $6e3f,$fffe
  867.     dcb.l    41,$01820000
  868.     dc.w    $6f41,$fffe
  869.     dcb.l    41,$01820000
  870.     dc.w    $703f,$fffe
  871.     dcb.l    41,$01820000
  872.     dc.w    $7141,$fffe
  873.     dcb.l    41,$01820000
  874.     dc.w    $723f,$fffe
  875.     dcb.l    41,$01820000
  876.     dc.w    $7341,$fffe
  877.     dcb.l    41,$01820000
  878.     dc.w    $743f,$fffe
  879.     dcb.l    41,$01820000
  880.     dc.w    $7541,$fffe
  881.     dcb.l    41,$01820000
  882.     dc.w    $763f,$fffe
  883.     dcb.l    41,$01820000
  884.     dc.w    $7741,$fffe
  885.     dcb.l    41,$01820000
  886.     dc.w    $783f,$fffe
  887.     dcb.l    41,$01820000
  888.     dc.w    $7941,$fffe
  889.     dcb.l    41,$01820000
  890.     dc.w    $7a3f,$fffe
  891.     dcb.l    41,$01820000
  892.     dc.w    $7b41,$fffe
  893.     dcb.l    41,$01820000
  894.     dc.w    $7c3f,$fffe
  895.     dcb.l    41,$01820000
  896.     dc.w    $7d41,$fffe
  897.     dcb.l    41,$01820000
  898.     dc.w    $7e3f,$fffe
  899.     dcb.l    41,$01820000
  900.     dc.w    $7f41,$fffe
  901.     dcb.l    41,$01820000
  902.     dc.w    $803f,$fffe
  903.     dcb.l    41,$01820000
  904.     dc.w    $8141,$fffe
  905.     dcb.l    41,$01820000
  906.     dc.w    $823f,$fffe
  907.     dcb.l    41,$01820000
  908.     dc.w    $8341,$fffe
  909.     dcb.l    41,$01820000
  910.     dc.w    $843f,$fffe
  911.     dcb.l    41,$01820000
  912.     dc.w    $8541,$fffe
  913.     dcb.l    41,$01820000
  914.     dc.w    $863f,$fffe
  915.     dcb.l    41,$01820000
  916.     dc.w    $8741,$fffe
  917.     dcb.l    41,$01820000
  918.     dc.w    $883f,$fffe
  919.     dcb.l    41,$01820000
  920.     dc.w    $8941,$fffe
  921.     dcb.l    41,$01820000
  922.     dc.w    $8a3f,$fffe
  923.     dcb.l    41,$01820000
  924.     dc.w    $8b41,$fffe
  925.     dcb.l    41,$01820000
  926.     dc.w    $8c3f,$fffe
  927.     dcb.l    41,$01820000
  928.     dc.w    $8d41,$fffe
  929.     dcb.l    41,$01820000
  930.     dc.w    $8e3f,$fffe
  931.     dcb.l    41,$01820000
  932.     dc.w    $8f41,$fffe
  933.     dcb.l    41,$01820000
  934.     dc.w    $903f,$fffe
  935.     dcb.l    41,$01820000
  936.     dc.w    $9141,$fffe
  937.     dcb.l    41,$01820000
  938.     dc.w    $923f,$fffe
  939.     dcb.l    41,$01820000
  940.     dc.w    $9341,$fffe
  941.     dcb.l    41,$01820000
  942.     dc.w    $943f,$fffe
  943.     dcb.l    41,$01820000
  944.     dc.w    $9541,$fffe
  945.     dcb.l    41,$01820000
  946.     dc.w    $963f,$fffe
  947.     dcb.l    41,$01820000
  948.     dc.w    $9741,$fffe
  949.     dcb.l    41,$01820000
  950.     dc.w    $983f,$fffe
  951.     dcb.l    41,$01820000
  952.     dc.w    $9941,$fffe
  953.     dcb.l    41,$01820000
  954.     dc.w    $9a3f,$fffe
  955.     dcb.l    41,$01820000
  956.     dc.w    $9b41,$fffe
  957.     dcb.l    41,$01820000
  958.     dc.w    $9c3f,$fffe
  959.     dcb.l    41,$01820000
  960.     dc.w    $9d41,$fffe
  961.     dcb.l    41,$01820000
  962.     dc.w    $9e3f,$fffe
  963.     dcb.l    41,$01820000
  964.     dc.w    $9f41,$fffe
  965.     dcb.l    41,$01820000
  966.     dc.w    $a03f,$fffe
  967.     dcb.l    41,$01820000
  968.     dc.w    $a141,$fffe
  969.     dcb.l    41,$01820000
  970.     dc.w    $a23f,$fffe
  971.     dcb.l    41,$01820000
  972.     dc.w    $a341,$fffe
  973.     dcb.l    41,$01820000
  974.     dc.w    $a43f,$fffe
  975.     dcb.l    41,$01820000
  976.     dc.w    $a541,$fffe
  977.     dcb.l    41,$01820000
  978.     dc.w    $a63f,$fffe
  979.     dcb.l    41,$01820000
  980.     dc.w    $a741,$fffe
  981.     dcb.l    41,$01820000
  982.     dc.w    $a83f,$fffe
  983.     dcb.l    41,$01820000
  984.     dc.w    $a941,$fffe
  985.     dcb.l    41,$01820000
  986.     dc.w    $aa3f,$fffe
  987.     dcb.l    41,$01820000
  988.     dc.w    $ab41,$fffe
  989.     dcb.l    41,$01820000
  990.     dc.w    $ac3f,$fffe
  991.     dcb.l    41,$01820000
  992.     dc.w    $ad41,$fffe
  993.     dcb.l    41,$01820000
  994.     dc.w    $ae3f,$fffe
  995.     dcb.l    41,$01820000
  996.     dc.w    $af41,$fffe
  997.     dcb.l    41,$01820000
  998.     dc.w    $b03f,$fffe
  999.     dcb.l    41,$01820000
  1000.     dc.w    $b141,$fffe
  1001.     dcb.l    41,$01820000
  1002.     dc.w    $b23f,$fffe
  1003.     dcb.l    41,$01820000
  1004.     dc.w    $b341,$fffe
  1005.     dcb.l    41,$01820000
  1006.     dc.w    $b43f,$fffe
  1007.     dcb.l    41,$01820000
  1008.     dc.w    $b541,$fffe
  1009.     dcb.l    41,$01820000
  1010.     dc.w    $b63f,$fffe
  1011.     dcb.l    41,$01820000
  1012.     dc.w    $b741,$fffe
  1013.     dcb.l    41,$01820000
  1014.     dc.w    $b83f,$fffe
  1015.     dcb.l    41,$01820000
  1016.     dc.w    $b941,$fffe
  1017.     dcb.l    41,$01820000
  1018.     dc.w    $ba3f,$fffe
  1019.     dcb.l    41,$01820000
  1020.     dc.w    $bb41,$fffe
  1021.     dcb.l    41,$01820000
  1022.     dc.w    $bc3f,$fffe
  1023.     dcb.l    41,$01820000
  1024.     dc.w    $bd41,$fffe
  1025.     dcb.l    41,$01820000
  1026.     dc.w    $be3f,$fffe
  1027.     dcb.l    41,$01820000
  1028.     dc.w    $bf41,$fffe
  1029.     dcb.l    41,$01820000
  1030.     dc.w    $c03f,$fffe
  1031.     dcb.l    41,$01820000
  1032.     dc.w    $c141,$fffe
  1033.     dcb.l    41,$01820000
  1034.     dc.w    $c23f,$fffe
  1035.     dcb.l    41,$01820000
  1036.     dc.w    $c341,$fffe
  1037.     dcb.l    41,$01820000
  1038.     dc.w    $c43f,$fffe
  1039.     dcb.l    41,$01820000
  1040.     dc.w    $c541,$fffe
  1041.     dcb.l    41,$01820000
  1042.     dc.w    $c63f,$fffe
  1043.     dcb.l    41,$01820000
  1044.     dc.w    $c741,$fffe
  1045.     dcb.l    41,$01820000
  1046.     dc.w    $c83f,$fffe
  1047.     dcb.l    41,$01820000
  1048.     dc.w    $c941,$fffe
  1049.     dcb.l    41,$01820000
  1050.     dc.w    $ca3f,$fffe
  1051.     dcb.l    41,$01820000
  1052.     dc.w    $cb41,$fffe
  1053.     dcb.l    41,$01820000
  1054.     dc.w    $cc3f,$fffe
  1055.     dcb.l    41,$01820000
  1056.     dc.w    $cd41,$fffe
  1057.     dcb.l    41,$01820000
  1058.     dc.w    $ce3f,$fffe
  1059.     dcb.l    41,$01820000
  1060.     dc.w    $cf41,$fffe
  1061.     dcb.l    41,$01820000
  1062.     dc.w    $d03f,$fffe
  1063.     dcb.l    41,$01820000
  1064.     dc.w    $d141,$fffe
  1065.     dcb.l    41,$01820000
  1066.     dc.w    $d23f,$fffe
  1067.     dcb.l    41,$01820000
  1068.     dc.w    $d341,$fffe
  1069.     dcb.l    41,$01820000
  1070.     dc.w    $d43f,$fffe
  1071.     dcb.l    41,$01820000
  1072.     dc.w    $d541,$fffe
  1073.     dcb.l    41,$01820000
  1074.     dc.w    $d63f,$fffe
  1075.     dcb.l    41,$01820000
  1076.     dc.w    $d741,$fffe
  1077.     dcb.l    41,$01820000
  1078.     dc.w    $d83f,$fffe
  1079.     dcb.l    41,$01820000
  1080.     dc.w    $d941,$fffe
  1081.     dcb.l    41,$01820000
  1082.     dc.w    $da3f,$fffe
  1083.     dcb.l    41,$01820000
  1084.     dc.w    $db41,$fffe
  1085.     dcb.l    41,$01820000
  1086.     dc.w    $dc3f,$fffe
  1087.     dcb.l    41,$01820000
  1088.     dc.w    $dd41,$fffe
  1089.     dcb.l    41,$01820000
  1090.     dc.w    $de3f,$fffe
  1091.     dcb.l    41,$01820000
  1092.     dc.w    $df41,$fffe
  1093.     dcb.l    41,$01820000
  1094.     dc.w    $e03f,$fffe
  1095.     dcb.l    41,$01820000
  1096.     dc.w    $e141,$fffe
  1097.     dcb.l    41,$01820000
  1098.     dc.w    $e23f,$fffe
  1099.     dcb.l    41,$01820000
  1100.     dc.w    $e341,$fffe
  1101.     dcb.l    41,$01820000
  1102.     dc.w    $e43f,$fffe
  1103.     dcb.l    41,$01820000
  1104.     dc.w    $e541,$fffe
  1105.     dcb.l    41,$01820000
  1106.     dc.w    $e63f,$fffe
  1107.     dcb.l    41,$01820000
  1108.     dc.w    $e741,$fffe
  1109.     dcb.l    41,$01820000
  1110.     dc.w    $e83f,$fffe
  1111.     dcb.l    41,$01820000
  1112.     dc.w    $e941,$fffe
  1113.     dcb.l    41,$01820000
  1114.     dc.w    $ea3f,$fffe
  1115.     dcb.l    41,$01820000
  1116.     dc.w    $eb41,$fffe
  1117.     dcb.l    41,$01820000
  1118.     dc.w    $ec3f,$fffe
  1119.     dcb.l    41,$01820000
  1120.     dc.w    $ed41,$fffe
  1121.     dcb.l    41,$01820000
  1122.     dc.w    $ee3f,$fffe
  1123.     dcb.l    41,$01820000
  1124.     dc.w    $ef41,$fffe
  1125.     dcb.l    41,$01820000
  1126.     dc.w    $f03f,$fffe
  1127.     dcb.l    41,$01820000
  1128.     dc.w    $f141,$fffe
  1129.     dcb.l    41,$01820000
  1130.     dc.w    $f23f,$fffe
  1131.     dcb.l    41,$01820000
  1132.     dc.w    $f341,$fffe
  1133.     dcb.l    41,$01820000
  1134.     dc.w    $f43f,$fffe
  1135.     dcb.l    41,$01820000
  1136.     dc.w    $f541,$fffe
  1137.     dcb.l    41,$01820000
  1138.     dc.w    $f63f,$fffe
  1139.     dcb.l    41,$01820000
  1140.     dc.w    $f741,$fffe
  1141.     dcb.l    41,$01820000
  1142.     dc.w    $f83f,$fffe
  1143.     dcb.l    41,$01820000
  1144.     dc.w    $f941,$fffe
  1145.     dcb.l    41,$01820000
  1146.     dc.w    $fa3f,$fffe
  1147.     dcb.l    41,$01820000
  1148.     dc.w    $fb41,$fffe
  1149.     dcb.l    41,$01820000
  1150.     dc.w    $fc3f,$fffe
  1151.     dcb.l    41,$01820000
  1152.     dc.w    $ffff,$fffe
  1153.  
  1154. plan
  1155.     incbin    essai.btm
  1156.  
  1157.